UVa/10019 - Funny encryption method/p10019.dpr

   1 program p10019;\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 \r
   5 uses\r
   6   SysUtils;\r
   7 \r
   8 function decToBin(n : integer) : string;\r
   9 {Convierte un número decimal a uno binario}\r
  10 begin\r
  11   result := '';\r
  12   while (n > 0) do\r
  13     begin\r
  14     result := intToStr(n mod 2) + result;\r
  15     n := n div 2;\r
  16     end;\r
  17 end;\r
  18 \r
  19 function hexToBin(n : integer) : string;\r
  20 {Convierte un número hexadecimal a uno binario}\r
  21 begin\r
  22   result := decToBin(strToInt('$' + intToStr(n)));\r
  23 end;\r
  24 \r
  25 var\r
  26  casos, i, m, b1, b2 : integer;\r
  27  s : string;\r
  28 begin\r
  29   readLn(casos);\r
  30   while casos > 0 do\r
  31     begin\r
  32       readLn(m);\r
  33       s := decToBin(m);\r
  34       b1 := 0;\r
  35       for i := 0 to length(s) do\r
  36           if s[i] = '1' then\r
  37               b1 := b1 + 1;\r
  38       s := hexToBin(m);\r
  39       b2 := 0;\r
  40       for i := 0 to length(s) do\r
  41           if s[i] = '1' then\r
  42               b2 := b2 + 1;\r
  43       writeLn(b1, ' ', b2);\r
  44       casos := casos - 1;\r
  45     end;\r
  46 end.\r